Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Namespace C4F.DevKit.WebServicesDemo
	Public Partial Class DemoBrowser
		Inherits Form
		Private gsURL As String
		Public Sub New()
			InitializeComponent()
		End Sub

		Public Sub New(ByVal sURL As String)
			InitializeComponent()
			gsURL = sURL
		End Sub

        Private Sub DemoBrowser_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Dim location As System.Uri
            location = New System.Uri(gsURL)
            webBrowser1.Url = location
        End Sub
	End Class
End Namespace
